home *** CD-ROM | disk | FTP | other *** search
/ Old School Press Kit / Old School Press Kit.iso / pc / Old_School.dxr / scripts_7_Print w- PrintOMatic.ls < prev    next >
Encoding:
Text File  |  2003-01-27  |  685 b   |  23 lines
  1. property myPath, ext
  2. global currPhoto, gSep
  3.  
  4. on getPropertyDescriptionList
  5.   description = [#myPath: [#comment: "folder for printable photos (relative to the movie)", #default: "Print", #format: #string], #ext: [#comment: "file type for the printable photos", #default: ".pct", #range: [".pct", ".eps", ".bmp"], #format: #string]]
  6.   return description
  7. end
  8.  
  9. on beginSprite me
  10.   myPath = fixPath(myPath)
  11. end
  12.  
  13. on mouseUp me
  14.   pictFile = the moviePath & myPath & currPhoto & ext
  15.   printDoc = new(xtra("PrintOMatic"))
  16.   setLandscapeMode(printDoc, 1)
  17.   newPage(printDoc)
  18.   drawPicture(printDoc, pictFile, rect(0, 0, 640, 480))
  19.   if doJobSetup(printDoc) then
  20.     print(printDoc)
  21.   end if
  22. end
  23.